home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / ***9.11 All NEWer important / Stockman⁄StructDraw Post / sd.PSinit < prev    next >
Text File  |  1994-09-16  |  2KB  |  107 lines
  1. %%Creator: DrawStruc
  2. % SSG PostScript definitions
  3. % PostScript is a registered trademark of Adobe Systems Incorporated
  4. /inch {72 mul} def
  5. /pschar 1 string def
  6.  
  7. % ellipse definition, call as: x y xrad yrad beginangle endangle ellipse
  8.  
  9. /ellipsedict 8 dict def
  10. ellipsedict /mtrx matrix put
  11.  
  12. /ellipse{
  13.    ellipsedict begin
  14.    /endangle exch def
  15.    /startangle exch def
  16.    /yrad exch def
  17.    /xrad exch def
  18.    /y exch def
  19.    /x exch def
  20.  
  21.    /savematrix mtrx currentmatrix def
  22.    x y translate
  23.    xrad yrad scale
  24.    0 0 1 startangle endangle arc
  25.    savematrix setmatrix
  26.    end
  27. } def
  28.  
  29. /sdpat1     %horizontal line pattern
  30. {newpath
  31. 0.5 setlinewidth
  32. -200 5 720
  33.     { -200 exch moveto
  34.       1050 0 rlineto
  35.     } for
  36. stroke
  37. } def
  38. /sdpat2     % vertical line pattern
  39. {newpath
  40. 0.5 setlinewidth
  41. -200 5 812
  42.     { 0 moveto
  43.       0 992 rlineto
  44.     } for
  45. stroke
  46. } def
  47. /sdpat3     % horizontal dashed pattern
  48. {newpath
  49. 1 setlinewidth
  50. [4 6] 0 setdash
  51. -200 5 992
  52.     { -200 exch moveto
  53.       1050 0 rlineto
  54.     } for
  55. stroke
  56. } def
  57. /sdpat4     % vertical thick line pattern
  58. {newpath
  59. 2 setlinewidth
  60. -200 5 812
  61.     { -200 moveto
  62.       0 992 rlineto
  63.     } for
  64. stroke
  65. } def
  66. /sdpat5     % cross hatch pattern
  67. {
  68. sdpat1
  69. sdpat2
  70. } def
  71. /sdpat6     % vertical line pattern - widely spaced
  72. {newpath
  73. 0.5 setlinewidth
  74. -200 10 812
  75.     { -200 moveto
  76.       0 992 rlineto
  77.     } for
  78. stroke
  79. } def
  80. /sdpat7     % horizontal dashed pattern - long and widely spaced
  81. {newpath
  82. 0.5 setlinewidth
  83. [8 10] 0 setdash
  84. -200 5 992
  85.     { -200 exch moveto
  86.       1050 0 rlineto
  87.     } for
  88. stroke
  89. } def
  90. /sdpat8     % cross hatch dashed pattern
  91. {newpath
  92. 0.5 setlinewidth
  93. [4 6] 0 setdash
  94. -200 5 992
  95.     { -200 exch moveto
  96.       812 0 rlineto
  97.     } for
  98. stroke
  99. -200 5 812
  100.     { -200 moveto
  101.       0 992 rlineto
  102.     } for
  103. stroke
  104. } def
  105.  
  106. %---------- end sd.init PS definitions -------------------
  107.